#
# Definition of a Linux Counter place record
#
# Modified beyond FileTable::Record:
#

package Counter::Place;

use strict;
use vars qw(@ISA);
@ISA = qw(FileTable::TSRecord);
#use Fcntl;
use CGI::Carp;
use FileTable::Links;

require Counter;

sub store {
    my $self = shift;
    if ($self->{maintainer}) {
	my @maintainerlist = split(/[,\s]+/, $$self{maintainer});
	my $linker = FileTable::Links->new("link_place_maintainer");
	$linker->setlinksfrom($self->key(), @maintainerlist);
    }
    $self->SUPER::store(@_);
}

1;
